(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     30119,        737]
NotebookOptionsPosition[     25603,        658]
NotebookOutlinePosition[     26003,        674]
CellTagsIndexPosition[     25960,        671]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["RefpropLink Installation", "Title",
 CellChangeTimes->{{3.8432915459511485`*^9, 3.843291550343111*^9}, {
  3.843592555455964*^9, 
  3.843592559581314*^9}},ExpressionUUID->"5219ce8f-d12d-485c-bf38-\
9935f2efe705"],

Cell[CellGroupData[{

Cell["Prerequisites", "Section",
 CellChangeTimes->{{3.8435925639123263`*^9, 
  3.843592568038307*^9}},ExpressionUUID->"8e23cd93-4e5c-4919-861f-\
d5d3e5016635"],

Cell["\<\
NIST REFPROP (version 9.1 or 10+) must be installed on the machine.  \
RefpropLink only provides wrapper functions that make direct calls to the \
NIST REFPROP program.\
\>", "Item",
 CellChangeTimes->{{3.843592623231802*^9, 
  3.843592702070021*^9}},ExpressionUUID->"dbc012f2-cf52-4287-bb4f-\
6cbcb11762fa"],

Cell["For developers of RefpropLink only:", "Text",
 CellChangeTimes->{{3.843592708103647*^9, 3.843592718278485*^9}, {
  3.8435933717104793`*^9, 3.8435933808998213`*^9}, {3.843593501645206*^9, 
  3.8435935021767206`*^9}},ExpressionUUID->"d6b66ea9-17fb-42f7-aff4-\
97123c5391dc"],

Cell[CellGroupData[{

Cell[TextData[{
 "The ",
 ButtonBox["Eclipse IDE",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://www.eclipse.org/eclipseide/"], None},
  ButtonNote->"https://www.eclipse.org/eclipseide/"],
 " (any flavor) from Eclipse Foundation (",
 ButtonBox["eclipse.org",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://www.eclipse.org/"], None},
  ButtonNote->"https://www.eclipse.org/"],
 ")"
}], "Item",
 CellChangeTimes->{{3.843592623231802*^9, 3.8435926943817086`*^9}, {
  3.843593260133669*^9, 3.84359328630949*^9}, {3.8435934482207036`*^9, 
  3.843593497444274*^9}},ExpressionUUID->"1d2e163e-f026-4b88-8579-\
5545289fd48a"],

Cell[TextData[{
 "The latest Wolfram Workbench plugin for Eclipse (",
 ButtonBox["Installation Instructions",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://support.wolfram.com/27221"], None},
  ButtonNote->"https://support.wolfram.com/27221"],
 ")"
}], "Item",
 CellChangeTimes->{{3.843592623231802*^9, 3.8435926943817086`*^9}, {
  3.843593260133669*^9, 3.843593296886146*^9}, {3.843593358168383*^9, 
  3.8435934103595514`*^9}, {3.8435935359825134`*^9, 
  3.8435935359825134`*^9}},ExpressionUUID->"01177f9c-20a1-4d0d-9515-\
b3eba98669dc"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Installation Methods", "Section",
 CellChangeTimes->{{3.843592582025908*^9, 
  3.8435925904826164`*^9}},ExpressionUUID->"2cfddcce-5e86-4ae9-a052-\
add804007536"],

Cell["\<\
There are three methods to instal RefpropLink, now that you have the \
REFPROP-wrappers development repository downloaded and unzipped from GitHub.\
\>", "Text",
 CellChangeTimes->{{3.8433715838316517`*^9, 3.8433716604375515`*^9}, {
  3.8433728240586267`*^9, 3.8433728245741377`*^9}, {3.8435935564518595`*^9, 
  3.8435935979748197`*^9}},ExpressionUUID->"1775aaa6-7b65-4838-b0b4-\
77a075b9f32a"],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Users",
  FontWeight->"Bold"],
 " - RefpropLink can be installed in the current user\[CloseCurlyQuote]s \
Wolfram Mathematica environment by executing the commands below in this \
installation file.  "
}], "ItemNumbered",
 CellChangeTimes->{{3.8433716769892607`*^9, 3.8433718014435234`*^9}, {
   3.8433718408629513`*^9, 3.843371841831212*^9}, {3.843371918746606*^9, 
   3.843371920527187*^9}, {3.8433721532881227`*^9, 3.8433723888735795`*^9}, {
   3.8433736197851076`*^9, 3.8433736533883114`*^9}, {3.8433736870709743`*^9, 
   3.8433736906954355`*^9}, {3.8435918254992113`*^9, 3.8435918405825324`*^9}, 
   3.843592478481552*^9},ExpressionUUID->"bc4b2fc7-74da-4ae9-9f39-\
1b9a0680b640"],

Cell[CellGroupData[{

Cell[TextData[{
 "This installation notebook ",
 StyleBox["must",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " be run from the download directory (don\[CloseCurlyQuote]t copy it and \
open it from another location)."
}], "Subitem",
 CellChangeTimes->{{3.843372486214729*^9, 3.8433725491670055`*^9}, {
  3.843375633451318*^9, 3.843375633451318*^9}, {3.843592487424653*^9, 
  3.843592487424653*^9}, {3.8435936479827533`*^9, 3.8435936510175176`*^9}, {
  3.843593736906681*^9, 
  3.843593751929296*^9}},ExpressionUUID->"2aedda81-982a-4d3c-8ad0-\
ef950bcd8a64"],

Cell["\<\
The commands below will remove any existing RefpropLink Paclets, if found, \
and install the version in this download directory.\
\>", "Subitem",
 CellChangeTimes->{{3.843372486214729*^9, 3.8433725491670055`*^9}, {
  3.843375633451318*^9, 3.843375633451318*^9}, {3.8435924879560523`*^9, 
  3.8435925059758043`*^9}, {3.843593665687231*^9, 
  3.8435936930821967`*^9}},ExpressionUUID->"bbfa9663-8673-4f85-9f6c-\
03850a657db1"],

Cell["\<\
Load this file from a fresh Mathematica instance on the machine.\
\>", "Subitem",
 CellChangeTimes->{{3.843372486214729*^9, 3.8433725491670055`*^9}, {
  3.8433756453618217`*^9, 3.8433756648077517`*^9}, {3.843593714760945*^9, 
  3.843593718855772*^9}},ExpressionUUID->"da0b6022-5aec-4c94-8607-\
c75b2f14b917"],

Cell[TextData[{
 "Use ",
 StyleBox["<Shift><Enter>",
  FontWeight->"Bold"],
 " to run each of the command steps below (in blue), as necessary"
}], "Subitem",
 CellChangeTimes->{{3.843372486214729*^9, 3.8433725491670055`*^9}, {
  3.8433756453618217`*^9, 3.843375787787867*^9}, {3.8435918811734247`*^9, 
  3.843591884033252*^9}, {3.843594425242256*^9, 
  3.8435944277288065`*^9}},ExpressionUUID->"54be81ae-df29-475c-bc11-\
5ceacf150a3c"],

Cell["\<\
You may need to restart Mathematica before it recognizes the newly installed \
RefpropLink documentation.\
\>", "Subitem",
 CellChangeTimes->{{3.843372486214729*^9, 3.843372598948335*^9}, {
  3.84337582381947*^9, 3.8433758287606363`*^9}, {3.843591900991235*^9, 
  3.8435919331081724`*^9}},ExpressionUUID->"288781eb-9b6b-434a-85af-\
a627cbbdbf75"],

Cell["\<\
A .archive folder will be created in the download folder of the downloaded \
repository.  This archive file (RefpropLink-x.x.x.paclet) can be used to \
distribute RefpropLink to other users once created, either directly, or from \
a local paclet server created for your organization.\
\>", "Subitem",
 CellChangeTimes->{{3.843372486214729*^9, 3.843372598948335*^9}, {
  3.84337582381947*^9, 3.8433758287606363`*^9}, {3.843591900991235*^9, 
  3.843592058425975*^9}, {3.8435937761175117`*^9, 3.843593819803276*^9}, {
  3.843593889623083*^9, 
  3.8435938943425426`*^9}},ExpressionUUID->"58dac630-d3a5-4609-bd1c-\
b0f9f8103890"],

Cell["\<\
Paclets are installed per user.  Other users on the same system will need to \
install their own RefpropLink paclet using either method 1 or 3.\
\>", "Subitem",
 CellChangeTimes->{{3.843372486214729*^9, 3.84337252173875*^9}, {
  3.843373708466837*^9, 3.8433737889266663`*^9}, {3.843593913423213*^9, 
  3.8435939139387083`*^9}},ExpressionUUID->"9861d14f-89c2-4c75-9f7f-\
b1ca2861d0f3"]
}, Open  ]],

Cell[TextData[{
 StyleBox["Developers",
  FontWeight->"Bold"],
 " - To further contribute to RefpropLink development, one should download \
the entire ",
 StyleBox["usnistgov/REFPROP-Wrappers",
  FontWeight->"Bold"],
 " repository from GitHub and import the ",
 StyleBox["wrappers\\RefpropLink",
  FontWeight->"Bold"],
 " directory into an installation of ",
 StyleBox["Eclipse",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " that includes the ",
 StyleBox["Wolfram Workbench (3)",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " plug-in.  Wolfram Workbench provides a button that will install the \
paclet.  "
}], "ItemNumbered",
 CellChangeTimes->{{3.8433716769892607`*^9, 3.8433718014435234`*^9}, {
   3.8433718408629513`*^9, 3.843371841831212*^9}, {3.84337196022875*^9, 
   3.8433719672469597`*^9}, {3.8433720229797845`*^9, 
   3.8433721286547565`*^9}, {3.843592080742326*^9, 3.843592081398986*^9}, {
   3.84359226209247*^9, 3.843592315312476*^9}, {3.843592403371333*^9, 
   3.843592408279175*^9}, {3.843593937075128*^9, 3.8435939630884*^9}, {
   3.8435939961272516`*^9, 3.8435940154778347`*^9}, 3.8435940467380037`*^9, {
   3.843610528615948*^9, 
   3.8436105601416116`*^9}},ExpressionUUID->"f4005cc3-1f48-432a-a0b3-\
e9f943e3eca3"],

Cell[CellGroupData[{

Cell[TextData[{
 "Development ",
 StyleBox["has",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " to be performed in ",
 StyleBox["Wolfram Workbench",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " to modify and build the indexed RefpropLink documentation files (for now)."
}], "Subitem",
 CellChangeTimes->{{3.8433747129189463`*^9, 3.8433747734975767`*^9}, {
  3.8435921526088767`*^9, 3.843592159815821*^9}, {3.8435921996399155`*^9, 
  3.8435922106093435`*^9}, {3.843594050969013*^9, 
  3.8435940538183203`*^9}},ExpressionUUID->"12f8d5ec-eb9d-4317-ac73-\
0be8bb297337"],

Cell["\<\
Consult Wolfram Workbench Help to import the RefpropLink wrapper directory.\
\>", "Subitem",
 CellChangeTimes->{{3.8433747129189463`*^9, 3.8433747734975767`*^9}, {
  3.8435921526088767`*^9, 3.843592159815821*^9}, {3.8435921996399155`*^9, 
  3.8435922106093435`*^9}, {3.8435940933307095`*^9, 
  3.843594137704686*^9}},ExpressionUUID->"cf4955e9-4af2-43bf-824e-\
59c20bac19dd"],

Cell[TextData[{
 "Once RefpropLink is loaded into Wolfram Workbench, the manual installation \
steps User Installation should ",
 StyleBox["not",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " be used from within the Eclipse environment."
}], "Subitem",
 CellChangeTimes->{{3.8433744608130026`*^9, 3.843374576515068*^9}, 
   3.843374794739523*^9, {3.843594165966481*^9, 
   3.8435941684364986`*^9}},ExpressionUUID->"a95116db-716d-412c-a6e6-\
c9f60bffd639"]
}, Open  ]],

Cell[TextData[{
 StyleBox["Distributing to an Organization or Community",
  FontWeight->"Bold"],
 " - The commands below for Method 1 will create a paclet archive file \
(RefpropLink-x.x.x.paclet) that can be placed on a Local Paclet Server for \
easier installation within your organization or community.  The process for  \
Local Paclet Site Management is documented in the Wolfram Mathematica help \
system."
}], "ItemNumbered",
 CellChangeTimes->{{3.8433716769892607`*^9, 3.8433718014435234`*^9}, {
  3.8433718408629513`*^9, 3.843371841831212*^9}, {3.84337196022875*^9, 
  3.8433719672469597`*^9}, {3.8433720229797845`*^9, 3.8433721286547565`*^9}, {
  3.8433728895322247`*^9, 3.8433729643826065`*^9}, {3.8433729977338767`*^9, 
  3.8433730998050637`*^9}, {3.843373205415786*^9, 3.843373234159641*^9}, {
  3.84337326962201*^9, 3.8433732717935753`*^9}, {3.8433733204715734`*^9, 
  3.8433734617977266`*^9}, {3.8435942502899942`*^9, 
  3.8435943304114428`*^9}},ExpressionUUID->"65e99d88-58f5-4acb-b0da-\
9357cae8454e"],

Cell[TextData[{
 StyleBox["NOTE:",
  FontWeight->"Bold"],
 "  Wolfram (both the man and the company) have been hinting of a ",
 StyleBox["Public Wolfram Paclet Repository",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " since 2019.  This has not yet come to fruition.  When and if it does, \
RefpropLink developers can place a .paclet file there for greatly simplified \
User Installation for the entire Wolfram Community and this installation file \
will no longer be necessary.  Until then..."
}], "SubitemParagraph",
 CellChangeTimes->{{3.843374611745531*^9, 3.8433746690581985`*^9}, 
   3.843374828797117*^9, {3.8433748664309845`*^9, 3.8433749786831675`*^9}, {
   3.843375061181155*^9, 3.843375133919028*^9}, {3.8435943711110797`*^9, 
   3.843594372333002*^9}},
 Background->RGBColor[
  1, 1, 0.85],ExpressionUUID->"4c578626-2ea6-4658-a963-d8415a9f3b6c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Remove any Existing RefpropLink Paclets Installed", "Section",
 CellChangeTimes->{{3.843374234250455*^9, 3.843374284500845*^9}, {
  3.843538976678034*^9, 
  3.8435389781644177`*^9}},ExpressionUUID->"07d932f0-44f5-4afa-ab68-\
78618474f78a"],

Cell["\<\
This step is optional if you wish to leave older version installed.  \
Mathematica will only load and use the latest version of any installed \
paclets.\
\>", "Text",
 CellChangeTimes->{{3.8435944113110876`*^9, 3.8435944142552357`*^9}, {
  3.8435944483142953`*^9, 
  3.843594493708337*^9}},ExpressionUUID->"d276a62e-4eca-42c2-9aa1-\
db42d85ede23"],

Cell[TextData[{
 StyleBox["NOTE:",
  FontWeight->"Bold"],
 "  ",
 StyleBox["This command may generate a message that, \
\[OpenCurlyDoubleQuote]Some files could not be removed because they are in \
use.  They will be removed when Mathematica is restarted.\
\[CloseCurlyDoubleQuote]  If this is the case,  just exit Mathematica after \
this step and then re-open this file and continue on with the next step.",
  FontSlant->"Italic"]
}], "SubitemParagraph",
 CellChangeTimes->{{3.843374611745531*^9, 3.8433746690581985`*^9}, 
   3.843374828797117*^9, {3.8433748664309845`*^9, 3.8433749786831675`*^9}, {
   3.843375061181155*^9, 3.843375133919028*^9}, {3.8435943711110797`*^9, 
   3.843594372333002*^9}, {3.8437118657782383`*^9, 3.8437119810063915`*^9}},
 Background->RGBColor[
  1, 1, 0.85],ExpressionUUID->"35664992-6b71-449c-892a-25fd4983bf5c"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"Length", "[", 
      RowBox[{"pRP", "=", 
       RowBox[{"PacletFind", "[", "\"\<RefpropLink\>\"", "]"}]}], "]"}], 
     ")"}], ">", "0"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Print", "[", 
     RowBox[{"\"\<Removing RefpropLink-\>\"", ",", 
      RowBox[{
       RowBox[{"Last", "[", "pRP", "]"}], "[", "\"\<Version\>\"", "]"}]}], 
     "]"}], ";", "\[IndentingNewLine]", 
    RowBox[{"PacletUninstall", "[", "\"\<RefpropLink\>\"", "]"}], ";"}], 
   "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
    "Print", "[", "\"\<No existing RefpropLink paclets found.\>\"", "]"}], 
    ";"}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.843310463289507*^9, 3.843310488177153*^9}, {
   3.843311625897043*^9, 3.8433116891468887`*^9}, {3.843311777249071*^9, 
   3.8433118136331463`*^9}, {3.8433118533800755`*^9, 
   3.8433118793211093`*^9}, {3.843373978498654*^9, 3.843374035927292*^9}, {
   3.8433743274033523`*^9, 3.843374340606267*^9}, {3.8433752092095385`*^9, 
   3.8433754599221325`*^9}, {3.843375562054222*^9, 3.8433755674830217`*^9}, {
   3.84337608342247*^9, 3.843376101749357*^9}, {3.8433762830142903`*^9, 
   3.843376290382182*^9}, {3.8433763205783014`*^9, 3.843376324141835*^9}, {
   3.843376768520259*^9, 3.843376847535219*^9}, {3.8433770674929686`*^9, 
   3.843377095796792*^9}, {3.843538939953101*^9, 3.8435389709099627`*^9}, {
   3.843539042360441*^9, 3.8435390437657623`*^9}, {3.843539139859733*^9, 
   3.8435391422821198`*^9}, {3.8435403242352495`*^9, 3.8435403263309774`*^9}, 
   3.8435950314468455`*^9, {3.8435950724779162`*^9, 3.8435951008143687`*^9}, {
   3.8436022247312527`*^9, 3.843602322816743*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->"In[58]:=",ExpressionUUID->"2fe99e6f-7adb-4323-ba99-bc3e1af0ebc8"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Install the Currently Downloaded RefpropLink Version", "Section",
 CellChangeTimes->{{3.8435051881870303`*^9, 3.843505208012381*^9}, {
  3.843538704436012*^9, 3.8435387176026335`*^9}, {3.8435393178531713`*^9, 
  3.8435393243619337`*^9}, {3.843540355823685*^9, 3.8435403793993454`*^9}, {
  3.8435423393790927`*^9, 
  3.8435423556838055`*^9}},ExpressionUUID->"2a9c09b7-f054-46d1-8718-\
4bfe880f0e78"],

Cell["\<\
Evaluate the command sequence below to install this version of RefpropLink.\
\>", "Text",
 CellChangeTimes->{{3.8435945727011013`*^9, 
  3.8435945907386503`*^9}},ExpressionUUID->"01998dd0-2fec-4ca7-88ce-\
911504f23c4a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"$Temp", "=", 
    RowBox[{"CreateDirectory", "[", "]"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Create", " ", "Temp", " ", "Directory"}], "..."}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"$RPtmp", "=", 
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{"$Temp", ",", "\"\<RefpropLink\>\""}], "}"}], "]"}]}], ";"}], 
  " ", 
  RowBox[{"(*", " ", 
   RowBox[{"...", " ", "and", " ", 
    RowBox[{"subdirectory", "."}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SetDirectory", "[", 
    RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Set", " ", "current", " ", "directory"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"CopyDirectory", "[", 
    RowBox[{"\"\<RefpropLink\>\"", ",", "$RPtmp"}], "]"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Copy", " ", "Bulk", " ", "of", " ", "Packlet"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"CopyFile", "[", 
    RowBox[{
     RowBox[{"FileNameJoin", "[", 
      RowBox[{"{", 
       RowBox[{
       "\"\<build\>\"", ",", "\"\<RefpropLink\>\"", ",", 
        "\"\<PacletInfo.m\>\""}], "}"}], "]"}], ",", 
     RowBox[{"FileNameJoin", "[", 
      RowBox[{"{", 
       RowBox[{"$RPtmp", ",", "\"\<PacletInfo.m\>\""}], "}"}], "]"}]}], "]"}],
    ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Copy", " ", "the", " ", "PacletInfo", " ", "file"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Replace", " ", "the", " ", "editable", " ", "documentation", " ", "with", 
    " ", "the", " ", "\"\<build\>\"", " ", 
    RowBox[{"version", "."}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteDirectory", "[", 
   RowBox[{
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{"$RPtmp", ",", "\"\<Documentation\>\""}], "}"}], "]"}], ",", 
    RowBox[{"DeleteContents", "\[Rule]", "True"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CopyDirectory", "[", 
   RowBox[{
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{
      "\"\<build\>\"", ",", "\"\<RefpropLink\>\"", ",", 
       "\"\<Documentation\>\""}], "}"}], "]"}], ",", 
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{"$RPtmp", ",", "\"\<Documentation\>\""}], "}"}], "]"}]}], "]"}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PacletDirectoryLoad", "[", "$RPtmp", "]"}], ";"}], "    ", 
  RowBox[{"(*", " ", 
   RowBox[{"Make", " ", "temp", " ", "paclet", " ", "dir", " ", "visible"}], 
   " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"create", " ", "archive", " ", "file"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"DirectoryQ", "[", "\"\<.archive\>\"", "]"}], ",", 
    RowBox[{"DeleteDirectory", "[", 
     RowBox[{"\"\<.archive\>\"", ",", 
      RowBox[{"DeleteContents", "\[Rule]", "True"}]}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"$ArchFile", "=", 
    RowBox[{"CreatePacletArchive", "[", 
     RowBox[{"$RPtmp", ",", 
      RowBox[{"CreateDirectory", "[", "\"\<.archive\>\"", "]"}]}], "]"}]}], 
   ";"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PacletDirectoryUnload", "[", "$RPtmp", "]"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Unload", " ", "the", " ", "temp", " ", "paclet", " ", "dir"}], 
   " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"DeleteDirectory", "[", 
    RowBox[{"$Temp", ",", 
     RowBox[{"DeleteContents", "\[Rule]", "True"}]}], "]"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Delete", " ", "Temp", " ", "directtory"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"POver", " ", "=", " ", 
    RowBox[{
     RowBox[{"PacletInstall", "[", "$ArchFile", "]"}], "[", "\"\<Version\>\"",
      "]"}]}], ";"}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{"Install", " ", "Paclet"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{
  "\"\<RefpropLink version \>\"", ",", "POver", ",", "\"\< installed.\>\""}], 
  "]"}]}], "Input",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.8435017413279295`*^9, 3.8435017681203594`*^9}, {
   3.8435031627148094`*^9, 3.8435032604286346`*^9}, {3.843538806204014*^9, 
   3.8435388224029894`*^9}, {3.8435391675624714`*^9, 3.843539169187758*^9}, {
   3.843539201109148*^9, 3.843539201822304*^9}, {3.843539268844489*^9, 
   3.843539270961769*^9}, 3.843539370745942*^9, {3.8435403922491865`*^9, 
   3.8435403927191772`*^9}, {3.8435404227210217`*^9, 
   3.8435406332043257`*^9}, {3.843542368280115*^9, 3.84354236881124*^9}, {
   3.843602137751677*^9, 3.843602141762236*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->"In[1]:=",ExpressionUUID->"97f8431f-ec1e-462e-9388-d8ea36962c82"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Verify that the Paclet is Properly Installed", "Section",
 CellChangeTimes->{{3.8435051881870303`*^9, 3.8435052215895276`*^9}, {
  3.843505251670763*^9, 3.843505254605547*^9}, {3.8435073497034035`*^9, 
  3.8435073748622155`*^9}, {3.843507467463558*^9, 3.8435074846259403`*^9}, {
  3.8435080035063534`*^9, 3.8435080123840127`*^9}, {3.8435081101027346`*^9, 
  3.8435081177758975`*^9}, {3.843540758004532*^9, 3.8435407786391068`*^9}, {
  3.843540884912563*^9, 
  3.8435409010443363`*^9}},ExpressionUUID->"79c57d7d-ef70-48d9-b6e3-\
406889fa7bdf"],

Cell["\<\
Execute the following commands, selecting them and pressing <Shift><Enter>, \
to verify that RefpropLink is properly installed and operational.
If the following command returns an empty set, then no versions of \
RefpropLink exist.
If a list of more than one Paclet version is returned, only the latest \
version will be used.\
\>", "Text",
 CellChangeTimes->{{3.843540934665061*^9, 3.843540989641909*^9}, {
  3.8435420366547604`*^9, 3.843542068295926*^9}, {3.8435946450379877`*^9, 
  3.843594687663931*^9}},ExpressionUUID->"dd61c581-f91f-4f4d-92fd-\
f3f2345f9e98"],

Cell[BoxData[
 RowBox[{"PacletFind", "[", "\"\<RefpropLink\>\"", "]"}]], "Input",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.843540904747845*^9, 3.8435409177496367`*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->"In[28]:=",ExpressionUUID->"a18bdba5-7e38-4787-a512-f0648ec37deb"],

Cell[CellGroupData[{

Cell["Check that the Paclet Loads properly", "Subsection",
 CellChangeTimes->{{3.843541975927043*^9, 
  3.8435419865884657`*^9}},ExpressionUUID->"caf48186-915c-4180-a4d3-\
a8f2d6c1dbbf"],

Cell["\<\
The following will load the RefpropLink paclet and display the version of \
NIST REFPROP found on the machine.  Note that NIST REFPROP is required to us \
the RefpropLink wrapper functions; otherwise RefpropLink will throw an error.\
\>", "Text",
 CellChangeTimes->{{3.843542096774904*^9, 3.843542188339204*^9}, {
  3.84360247036521*^9, 
  3.843602488120322*^9}},ExpressionUUID->"d7583617-982a-4e95-a041-\
ad55a1a4d32a"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<RefpropLink`\>\"", "]"}]], "Input",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.8435420081248245`*^9, 3.843542021601428*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->"In[1]:=",ExpressionUUID->"1575fc28-b7a5-4d97-9cda-19a7bfb81d5d"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Check the Documentation", "Subsection",
 CellChangeTimes->{{3.8435419615008607`*^9, 
  3.843541965375039*^9}},ExpressionUUID->"da3e0da4-2afb-4eee-a7c6-\
51c0cf3f8cd4"],

Cell[TextData[{
 "Shut down Mathematica and restart it.  Make sure that the RefpropLink \
documentation is loaded by opening the Help System and searching for ",
 StyleBox["Refprop",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " (for a list possible RefpropLink pages) or ",
 StyleBox["RefpropLink",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " to go right to the RefpropLink Overview page.   The first time this is \
done, the help system will provide a notification that new help documents are \
being indexed."
}], "Text",
 CellChangeTimes->{{3.8435417513432937`*^9, 3.8435419121528115`*^9}, {
  3.8435947786306562`*^9, 
  3.8435948181268415`*^9}},ExpressionUUID->"6e64cafb-4a62-44e0-9695-\
7781178aa25f"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["To Uninstall the RefpropLink Paclet from Mathematica", "Section",
 CellChangeTimes->{{3.8435051881870303`*^9, 3.8435052215895276`*^9}, {
  3.843505251670763*^9, 3.843505254605547*^9}, {3.8435073497034035`*^9, 
  3.8435073748622155`*^9}, {3.843507467463558*^9, 3.8435074846259403`*^9}, {
  3.8435080035063534`*^9, 3.8435080123840127`*^9}, {3.8435081101027346`*^9, 
  3.8435081177758975`*^9}, {3.843540758004532*^9, 3.8435407786391068`*^9}, {
  3.843594890020318*^9, 
  3.8435949067908554`*^9}},ExpressionUUID->"1e1c7c66-c8da-483a-aac2-\
867a9a086d3f"],

Cell["Uninstalling RefpropLink, for whatever reason, is simple...", "Text",
 CellChangeTimes->{{3.843594857339573*^9, 
  3.843594881063321*^9}},ExpressionUUID->"2d02638c-31bd-4479-95f9-\
e283f1e656b3"],

Cell[BoxData[
 RowBox[{"PacletUninstall", "[", "\"\<RefpropLink\>\"", "]"}]], "Input",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.8435082588117576`*^9, 3.8435082714698343`*^9}, {
  3.843540788277226*^9, 3.843540797756908*^9}, {3.8435953978197746`*^9, 
  3.8435953979913435`*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->"In[30]:=",ExpressionUUID->"32b0adc1-26f0-4830-9cd4-50d4b643610b"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{776, 858},
WindowMargins->{{-1411, Automatic}, {Automatic, 8}},
FrontEndVersion->"12.1 for Microsoft Windows (64-bit) (June 19, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"ae8260d0-6ecd-40aa-a156-aa9de41ba5c6"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 218, 4, 96, "Title",ExpressionUUID->"5219ce8f-d12d-485c-bf38-9935f2efe705"],
Cell[CellGroupData[{
Cell[823, 30, 160, 3, 67, "Section",ExpressionUUID->"8e23cd93-4e5c-4919-861f-d5d3e5016635"],
Cell[986, 35, 318, 7, 51, "Item",ExpressionUUID->"dbc012f2-cf52-4287-bb4f-6cbcb11762fa"],
Cell[1307, 44, 278, 4, 34, "Text",ExpressionUUID->"d6b66ea9-17fb-42f7-aff4-97123c5391dc"],
Cell[CellGroupData[{
Cell[1610, 52, 641, 18, 31, "Item",ExpressionUUID->"1d2e163e-f026-4b88-8579-5545289fd48a"],
Cell[2254, 72, 551, 13, 31, "Item",ExpressionUUID->"01177f9c-20a1-4d0d-9515-b3eba98669dc"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[2854, 91, 167, 3, 67, "Section",ExpressionUUID->"2cfddcce-5e86-4ae9-a052-add804007536"],
Cell[3024, 96, 404, 7, 56, "Text",ExpressionUUID->"1775aaa6-7b65-4838-b0b4-77a075b9f32a"],
Cell[CellGroupData[{
Cell[3453, 107, 711, 13, 51, "ItemNumbered",ExpressionUUID->"bc4b2fc7-74da-4ae9-9f39-1b9a0680b640"],
Cell[CellGroupData[{
Cell[4189, 124, 560, 13, 45, "Subitem",ExpressionUUID->"2aedda81-982a-4d3c-8ad0-ef950bcd8a64"],
Cell[4752, 139, 433, 8, 45, "Subitem",ExpressionUUID->"bbfa9663-8673-4f85-9f6c-03850a657db1"],
Cell[5188, 149, 318, 6, 26, "Subitem",ExpressionUUID->"da0b6022-5aec-4c94-8607-c75b2f14b917"],
Cell[5509, 157, 435, 10, 26, "Subitem",ExpressionUUID->"54be81ae-df29-475c-bc11-5ceacf150a3c"],
Cell[5947, 169, 356, 7, 45, "Subitem",ExpressionUUID->"288781eb-9b6b-434a-85af-a627cbbdbf75"],
Cell[6306, 178, 634, 11, 64, "Subitem",ExpressionUUID->"58dac630-d3a5-4609-bd1c-b0f9f8103890"],
Cell[6943, 191, 394, 7, 45, "Subitem",ExpressionUUID->"9861d14f-89c2-4c75-9f7f-b1ca2861d0f3"]
}, Open  ]],
Cell[7352, 201, 1241, 30, 91, "ItemNumbered",ExpressionUUID->"f4005cc3-1f48-432a-a0b3-e9f943e3eca3"],
Cell[CellGroupData[{
Cell[8618, 235, 573, 15, 45, "Subitem",ExpressionUUID->"12f8d5ec-eb9d-4317-ac73-0be8bb297337"],
Cell[9194, 252, 384, 7, 26, "Subitem",ExpressionUUID->"cf4955e9-4af2-43bf-824e-59c20bac19dd"],
Cell[9581, 261, 458, 11, 45, "Subitem",ExpressionUUID->"a95116db-716d-412c-a6e6-c9f60bffd639"]
}, Open  ]],
Cell[10054, 275, 1017, 17, 91, "ItemNumbered",ExpressionUUID->"65e99d88-58f5-4acb-b0da-9357cae8454e"],
Cell[11074, 294, 860, 17, 96, "SubitemParagraph",ExpressionUUID->"4c578626-2ea6-4658-a963-d8415a9f3b6c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[11983, 317, 245, 4, 67, "Section",ExpressionUUID->"07d932f0-44f5-4afa-ab68-78618474f78a"],
Cell[12231, 323, 357, 8, 56, "Text",ExpressionUUID->"d276a62e-4eca-42c2-9aa1-db42d85ede23"],
Cell[12591, 333, 844, 16, 77, "SubitemParagraph",ExpressionUUID->"35664992-6b71-449c-892a-25fd4983bf5c"],
Cell[13438, 351, 1918, 37, 142, "Input",ExpressionUUID->"2fe99e6f-7adb-4323-ba99-bc3e1af0ebc8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15393, 393, 404, 6, 67, "Section",ExpressionUUID->"2a9c09b7-f054-46d1-8718-4bfe880f0e78"],
Cell[15800, 401, 229, 5, 34, "Text",ExpressionUUID->"01998dd0-2fec-4ca7-88ce-911504f23c4a"],
Cell[16032, 408, 4998, 134, 370, "Input",ExpressionUUID->"97f8431f-ec1e-462e-9388-d8ea36962c82"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21067, 547, 548, 8, 67, "Section",ExpressionUUID->"79c57d7d-ef70-48d9-b6e3-406889fa7bdf"],
Cell[21618, 557, 575, 11, 100, "Text",ExpressionUUID->"dd61c581-f91f-4f4d-92fd-f3f2345f9e98"],
Cell[22196, 570, 296, 5, 46, "Input",ExpressionUUID->"a18bdba5-7e38-4787-a512-f0648ec37deb"],
Cell[CellGroupData[{
Cell[22517, 579, 186, 3, 53, "Subsection",ExpressionUUID->"caf48186-915c-4180-a4d3-a8f2d6c1dbbf"],
Cell[22706, 584, 430, 8, 78, "Text",ExpressionUUID->"d7583617-982a-4e95-a041-ad55a1a4d32a"],
Cell[23139, 594, 291, 5, 46, "Input",ExpressionUUID->"1575fc28-b7a5-4d97-9cda-19a7bfb81d5d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23467, 604, 173, 3, 53, "Subsection",ExpressionUUID->"da3e0da4-2afb-4eee-a7c6-51c0cf3f8cd4"],
Cell[23643, 609, 715, 17, 100, "Text",ExpressionUUID->"6e64cafb-4a62-44e0-9695-7781178aa25f"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[24407, 632, 556, 8, 67, "Section",ExpressionUUID->"1e1c7c66-c8da-483a-aac2-867a9a086d3f"],
Cell[24966, 642, 201, 3, 34, "Text",ExpressionUUID->"2d02638c-31bd-4479-95f9-e283f1e656b3"],
Cell[25170, 647, 405, 7, 46, "Input",ExpressionUUID->"32b0adc1-26f0-4830-9cd4-50d4b643610b"]
}, Open  ]]
}, Open  ]]
}
]
*)

